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-- File: DebugPilotCache.Mesa 
-- Last edited by 

Johnsson; August 29, 1978 9:48 AM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [MakeDataSeginent] , 

AUoDefs: FROM "aUodefs" USING [PageSize], 

DebugCacheDefs: FROM "debugcachedef s" , 

DebugUtilityDefs: FROM "debugutil i tydef s" USING [LongREAD. LongWRITE], 

DiskDefs: FROM "diskdefs" USING [ 

DA, DC, DH, DS, DSgoodStatus , DSmaskStatus , 

UnrecoverableDiskError] , 
InlineDefs: FROM "inlinedefs" USING [ 

BITAND, DIVMOD, LongMuU], 
MiscDefs: FROM "miscdefs" USING [Zero], 
SegmentDefs: FROM "segmentdef s" USING [ 

DataSegmentAddress , DefaultBase, FileHandle, 

FileSegmentAddress , FileSegmentHandl e, MoveFileSegment, 

NewFileSegment , Read, Swapin, SwapUp, Unlock], 
VMMapLog: FROM "vmrnaplog" USING [ 

Descriptor, Entry, EntryBasePointer , EntryPointer, 

PilotaiLabel, PilotFID]; 

DebugPilotCache: PROGRAM 

IMPORTS AllocDefs, DebugUtilityDefs, DiskDefs, MiscDefs, SegmentDefs 

EXPORTS DebugCacheDefs 

SHARES DiskDefs. SegmentDefs = 

BEGIN 

-- Dealing with the MapLog 

mfMap: DESCRIPTOR FOR ARRAY OF VMMapLog . Entry ; 
mfMapSeg: SegmentDefs .FileSegmentHandle; 
mfMapLimit: CARDINAL; 
MFEntrySize: CARDINAL = SIZE[VMMapLog .Entry] ; 

MapSwapBase: CARDINAL - 16384-256; 

BadMapLogEntry: PUBLIC SIGNAL = CODE; 

InitMapSeg: PUBLIC PROCEDURE [f: SegmentDefs . FileHandle] « 
BEGIN OPEN SegmentDefs; 
mfMapSeg ♦- NewFileSegment[f , 256, 1 .Read] ; 
END; 

ReinitMap: PUBLIC PROCEDURE [root: LONG POINTER TO VMMapLog. Descriptor] » 
BEGIN OPEN SegmentDefs; 
entry: VMMapLog . Entry ; 
ep: POINTER = 6entry; 
i: CARDINAL; 

UNTIL mfMapSeg. lock - DO Unlock[mfMapSeg] ENDLOOP; 
mfMapSeg. write <~ FALSE; 

MoveFileSegment[mfMapSeg, mfMapSeg . base, 1]; 
mfMapLimit ♦- 0; 
IF root = NIL THEN RETURN; 
FOR i IN [0. .MFEntrySize) DO 

(ep+i)t <- DebugUtilityDefs. LongREAD[@root.self+i] ENDLOOP; 
IF entry. page <= 255 THEN entry. page <- entry. page + MapSwapBase; 
AcquireMap[]; 
AddMapEntry[@entry]; 
P roc essMap Log [root]; 
ReleaseMap[]; 
END; 

ProcessMapLog: PUBLIC PROCEDURE [root: LONG POINTER TO VMMapLog .Descriptor] =« 
BEGIN OPEN DebugUtilityDefs; 
base : VMMapLog . EntryBasePointer ; 
entry: VMMapLog. Entry ; 
ep: POINTER « ©entry; 
freeEntry, i: CARDINAL; 
found: BOOLEAN; 

me: POINTER TO VMMapLog. Entry ; 
reader, writer, limit: VMMapLog. EntryPointer; 
AcquireMap[]; 
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base ^ LOOPHOLE[ 

In! ineDef s.LongMul t[nifMap[0].page, AT toDef s .PageSize]] ; 
reader <- LongREAD[@root. reader] ; 
writer ♦- LongREAD[@root.wri ter] ; 
limit <- LongREAD[0root.1 imit]; 
UNTIL reader « writer DO 

FOR i IN [0. .MFEntrySize) DO 

(ep+i)t 4- LongREAD[@base[reader] + i] ENDLOOP; 
IF entry. page <* 255 THEN entry. page ^ entry. page + MapSwapBase; 
freeEntry <- 0; 
found *■ FALSE; 
FOR i IN [0. .mfMapLimit) DO 
me <- @mfMap[i]; 
SELECT TRUE FROM 
me. kind « nil ■> 

IF freeEntry «» THEN freeEntry ^ i; 
entry. page IN [me. page. .me. page+me, count) , 
entry .page+entry. count IN [me. page. .me. page+me. count) , 
me. page IN [entry . page. .entry .page+entry .count) => 
BEGIN 

IF found THEN me.filePoint ♦- nil[] 
ELSE 
BEGIN 

found <r TRUE; 
met i- entry; 
mfMapSeg. write ^ TRUE; 
IF entry. page = me. page AND entry. count « me. count THEN 

EXIT; 
END; 
END; 
ENDCASE; 
REPEAT FINISHED «> 
IF -found THEN 

IF freeEntry # THEN mfMap[f reeEntry] ♦- entry 
ELSE AddMapEntry[@entry]; 
ENDLOOP; 
IF (reader <- reader + MFEntrySize) = limit THEN 

reader <- LOOPHOLE[0]; 
ENDLOOP; 
LongWRITE[@root. reader, reader]; 
ReleaseMap[]; 
END; 

AddMapEntry: PROCEDURE [e; POINTER TO VMMapLog .Entry] « 
BEGIN 
IF mfMapLimit = LENGTH[mfMap] THEN 

BEGIN 

locks: CARDINAL = mfMapSeg . lock; 

THROUGH [0.. locks) DO ReleaseMap[] ENDLOOP; 

SegmentDef s .MoveFi leSegment [mfMapSeg , mfMapSeg. base, mfMapSeg.pages+1] ; 

THROUGH [Clocks) DO AcquireMapQ] ENDLOOP; 

END; 
mfMap[mfMapLimi t] <- et; 
mfMapSeg. write <- TRUE; 
mfMapLimit <- mfMapLimit + 1; 
END; 

LookupMapEntry: PUBLIC PROCEDURE [mempage: CARDINAL] 
RETURNS [me: POINTER TO VMMapLog .Entry] =« 
BEGIN 

i: CARDINAL; 
AcquireMap[]; 

FOR i IN [0. .mfMapLimit) DO 
me ^ 6mfMap[i]; 

IF mempage IN [me. page. .me. page+me . count) AND 
me. kind ff nil THEN 
RETURN; 
ENDLOOP; 
RETURN[NIL]; 
END; 

AcquireMap: PROCEDURE - 
BEGIN 

SegmentDef s .SwapIn[mfMapSeg]; 
mfMap ^ DESCRIPTOR[ 

SegmentDef s . F i ]eSegmentAddress[mfMapSeg] , 
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{mfMapSeg.pages*AUoDefs.PageSize)/MFEntrySiz0 + 1]; 
END; 

ReleaseMap: PUBLIC PROCEDURE » 
BEGIN 
IF mfMapSeg. write AND mfMapSeg . lock » 1 THEN 

BEGIN SegmentDefs.SwapUp[mfMapSeg]; mfMapSeg. write ^ FALSE END; 
SegmentDef s .Unlock [mfMapSeg] ; 

IF mfMapSeg. lock « THEN mfMap ♦- DESCRIPTOR[NIL, 0]; 
END; 

NewPilotaiSegment: PUBLIC PROCEDURE [ 

vda: CARDINAL, fileid: VMMapLog .PilotFID, filepage: CARDINAL] 

RETURNS [p: POINTER] « 

BEGIN OPEN SegmentDefs; 

label: VMMapLog. Pilot31Label ; 

p <- DataSegmentAddress[AnocDefs .MakeDataSegment[Defaul tBase, 1, 

[ 0. hard, bo ttomup, initial .other .TRUE , FALSE]]]; 
MiscDefs.Zero[@label . SIZE[VMMapLog. PilotSlLabel ]]; 
label .fid <- fileid; 
label .page <- filepage; 
MoveDiskPage[read , vda, 01abel, p]; 
RETURN 
END; 

WritePilotaiPage: PUBLIC PROCEDURE [ 
address: POINTER, vda: CARDINAL, 
fileid: VMMapLog .PilotFID, filepage: CARDINAL] » 
BEGIN 

label: VMMapLog . PilotSlLabel ; 

MiscDefs.Zero[@label , SIZE[VMMapLog. PilotSlLabel ]]; 
label .fid ^ fileid; 
label. page *- filepage; 

MoveDiskPage[write, vda, ©label, address]; 
END; 

-- low level disk driver 

DS: TYPE = DiskDefs.DS; 

KCB: TYPE = MACHINE DEPENDENT RECORD [ 
next: POINTER TO KCB, 
status: DS, 
command: DiskDefs.DC, 
header: POINTER TO DiskDefs.DH, 
label: POINTER, 
data: POINTER, 
normalbits: WORD, 
errorbits: WORD, 
unused: WORD, 
da: DiskDefs.DA]; 

nil: POINTER TO KCB « LOOPHOLE[0]; 

MaskDS: PROCEDURE [DS,DS] RETURNS [DS] - LOOPHOLE[Inl ineDef s .BITANO] ; 

DSnoStatus: DS = LOOPHOLE[0]; 

diskCommands: POINTER TO POINTER TO KCB = L00PH0LE[521B] ; 

MoveDiskPage: PROCEDURE 

[op: {read, write), vda: CARDINAL, label, data: POINTER] « 

BEGIN OPEN DiskDefs; 

da: DiskDefs.DA = Real31DA[vda]; 

header: DH <- [O.da]; 

kcb: KCB ^ [ 

next: nil, status:, command:, 

header: ©header, label: label, data: data, 

normalbits: 0, errorbits: 0, unused: 0, 

da:]: 
seekonly: DC « [110B,DiskCheck,DiskCheck,DiskCheck , 1, 1]; 
move: DC <- [llOB.DiskCheck, DiskCheck .DiskRead ,0, 1] ; 
tries: CARDINAL; 

IF op = write THEN move. data *- DiskWrite; 
FOR tries IN [0. .5] DO 

UNTIL diskCommandst « nil DO NULL ENDLOOP; 
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kcb. status <- DSnoStatus; 

kcb .command <- move ; 

kcb. da ^ da; 

diskCommandst i- @kcb; 

UNTIL kcb. status. done f^ DO NULL ENDLOOP; 

IF MaskDS[kcb. status, DSmaskStatus] = DSgoodStabus THEN EXIT; 

IF tries « 1 THEN 

BEGIN 

kcb. status ^ DSnoStatus; 

kcb. command ^ seekonly; 

kcb. da ^ [0,0.0,0,1]; 

diskCommandst ♦- 0kcb; 

END; 
REPEAT FINISHED => ERROR Unrecovorabi eDiskError[NIL] ; 
ENDLOOP; 
END; 

Rea131DA: PROCEDURE [vda: CARDINAL] RETURNS [da: DiskDef s.DA] « 
BEGIN OPEN imineDefs; 
da ^ [0,0,0,0,0]; 

[vda, da. sector] <- DIVMOD[vda, 12]; 
[vda. da. head] ^ DIVMOD[vda, 2]; 
[da. disk, da. track] ^ DIVMOD[vda, 203]; 
END; 

END. . . 



